home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmmailc / _setup.1 / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-06-21  |  2.3 KB  |  96 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, AHMMails, AHMTIEmails,Buttons, ComCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Edit2: TEdit;
  13.     Memo1: TMemo;
  14.     Edit3: TEdit;
  15.     Label3: TLabel;
  16.     AHMSMTPMail1: TAHMSMTPMail;
  17.     Edit4: TEdit;
  18.     Panel1: TPanel;
  19.     Edit5: TEdit;
  20.     Label4: TLabel;
  21.     Label7: TLabel;
  22.     StatusBar1: TStatusBar;
  23.     Button1: TButton;
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure AHMSMTPMail1Connect(Sender: TObject);
  26.     procedure AHMSMTPMail1Disconnect(Sender: TObject);
  27.     procedure AHMSMTPMail1BeforeSend(Sender: TObject);
  28.     procedure AHMSMTPMail1AfterSend(Sender: TObject);
  29.     procedure AHMSMTPMail1Error(Sender: TObject; Error: Integer;
  30.       VMessage: String);
  31.     procedure AHMSMTPMail1SendProgress(Sender: TObject; Percent: Word);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TForm1.Button1Click(Sender: TObject);
  46. var NewMessage : TAHMMessage;
  47. begin
  48.   AHMSMTPMail1.Host:=Edit5.text;
  49.   NewMessage:=TAHMMessage.Create(AHMSMTPMail1.Messages);
  50.   NewMessage.Subject:=edit1.Text;
  51.   NewMessage.SendTo:=edit2.text;
  52.   NewMessage.Message.Text:=Memo1.Lines.Text;
  53.   NewMessage.FromMail:=Edit3.Text;
  54.   NewMessage.ReplyTo:=Edit3.Text;
  55.   NewMessage.FromName:=edit4.text;
  56.   try
  57.     AHMSMTPMail1.Execute;
  58.   finally
  59.     NewMessage.Free;
  60.   end;
  61. end;
  62.  
  63. procedure TForm1.AHMSMTPMail1Connect(Sender: TObject);
  64. begin
  65.   Statusbar1.Simpletext:='Connecting to '+edit5.text;
  66.  
  67. end;
  68.  
  69. procedure TForm1.AHMSMTPMail1Disconnect(Sender: TObject);
  70. begin
  71.   Statusbar1.Simpletext:='Disconnecting from '+edit5.text;
  72. end;
  73.  
  74. procedure TForm1.AHMSMTPMail1BeforeSend(Sender: TObject);
  75. begin
  76.   Statusbar1.Simpletext:='Sending '+edit1.text;
  77. end;
  78.  
  79. procedure TForm1.AHMSMTPMail1AfterSend(Sender: TObject);
  80. begin
  81.   Statusbar1.Simpletext:=edit1.text+' has been sent';
  82. end;
  83.  
  84. procedure TForm1.AHMSMTPMail1Error(Sender: TObject; Error: Integer;
  85.   VMessage: String);
  86. begin
  87.  showmessage(VMessage);
  88. end;
  89.  
  90. procedure TForm1.AHMSMTPMail1SendProgress(Sender: TObject; Percent: Word);
  91. begin
  92.   Statusbar1.Simpletext:='Sending '+Inttostr(Percent)+'%';
  93. end;
  94.  
  95. end.
  96.